#Test file for greedy algorithms with constant cost
use Bio::Phylo::IO;
use SurvivalProbability;
use Clone;

#Get the tree
$tree_string = "((A:1,B:2)n1:3,C:4)n2:0;";
my $tree = Bio::Phylo::IO->parse(
   '-string' => $tree_string,
   '-format' => 'newick',
)->first;

$a{A}=0.5;
$a{B}= .5;

my $tree2 = Bio::Phylo::IO->parse(
   '-string' => $tree->to_newick(),
   '-format' => 'newick',
)->first;


print $tree->to_newick()."\n";
print $tree2->to_newick()."\n";
$tree2->scale_survival(%a);
print $tree->to_newick()."\n";
print $tree2->to_newick()."\n";

